home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / ad12.zip / SERVCS.AD < prev    next >
Text File  |  1990-03-02  |  931b  |  47 lines
  1.  ┌ * Perform Services Functions
  2.  │ 
  3.  │ * Allocate Services to Members
  4.  │ ╔ For Each service to be allocated
  5.  │ ║ 
  6.  │ ║ Enter:
  7.  │ ║   Service ID
  8.  │ ║   Charge Frequency (Monthly, Quarterly, Annually,
  9.  │ ║     Semi Annually or On Demand)
  10.  │ ║ 
  11.  │ ║ ╒ If Service Basis = Unit or Unit Discounted
  12.  │ ║ │ 
  13.  │ ║ │ Enter:
  14.  │ ║ │   Volume
  15.  │ ║ │   Unit Type (# Members, # Contacts, # Labels, 
  16.  │ ║ │     Publications)
  17.  │ ║ │ 
  18.  │ ║ └ End If
  19.  │ ║ 
  20.  │ ║ Compute Service Charges
  21.  │ ║ 
  22.  │ ╚ End For
  23.  │ 
  24.  │ ╔ For Each service allocated to a member
  25.  │ ║ 
  26.  │ ║ ╒ If Service Basis = Fixed Charge
  27.  │ ║ │ 
  28.  │ ║ │ charge = Service Charge
  29.  │ ║ │ 
  30.  │ ║ ├ Else
  31.  │ ║ │ 
  32.  │ ║ │ ╒ If charge = Unit
  33.  │ ║ │ │ 
  34.  │ ║ │ │ charge = Service Charge * Volume
  35.  │ ║ │ │ 
  36.  │ ║ │ ├ Else
  37.  │ ║ │ │ 
  38.  │ ║ │ │ charge = discounted Service Charge * Volume
  39.  │ ║ │ │ 
  40.  │ ║ │ └ End If
  41.  │ ║ │ 
  42.  │ ║ └ End If
  43.  │ ║ 
  44.  │ ╚ End For
  45.  │ 
  46.  └ 
  47.